#!/usr/bin/perl

use LWP::UserAgent;
use URI::Escape;
use HTTP::Request::Common qw(POST GET);
use XML::Simple;

print "¿Cuántos?\n";
my $consultando = 1;
while ($consultando) {
  my $entrada = <STDIN>;
  if ($entrada =~ /\d/ && $entrada <= 100 && $entrada > 0) {
    my $ua = LWP::UserAgent->new();
    my $req = GET 'https://aap_ugr:LADECLASE@api.del.icio.us/v1/posts/recent?&count='.$entrada; 
    my $res = $ua->request($req);
    if ($res->is_success) {
      print "\nResultados:\n\n";
      my $respuesta=XMLin($res->content);
      my @posts = @{$respuesta->{post}};
      foreach my $entradas (@posts) {
        print "Dirección: ".$entradas->{href}."\nAñadida el: ".$entradas->{time}."\n\n";
      }
      $consultando = 0;
    } else {
        die $res->status_line;
      }
  } else {
      print "Introduce -un número- mayor que 0 y menor que 100:\n";
    }
}
